home *** CD-ROM | disk | FTP | other *** search
/ Shareware Super Platinum 8 / Shareware Super Platinum 8.iso / mac / PROGTOOL / 3DVECT30.ZIP;1 / STUFF.INC < prev    next >
Encoding:
Text File  |  1993-11-18  |  3.4 KB  |  122 lines
  1. ; this file only contains useless stuff used in that cheap main.exe demo.
  2.  
  3. defpal  db 0,0,0,0,0,42,0,42,0,0,42,42,42,0,0,42
  4.         db 0,42,42,42,0,42,42,42,0,0,21,0,0,63,0,42
  5.         db 21,0,42,63,42,0,21,42,0,63,42,42,21,42,42,63
  6.         db 0,21,0,0,21,42,0,63,0,0,63,42,42,21,0,42
  7.         db 21,42,42,63,0,42,63,42,0,21,21,0,21,63,0,63
  8.         db 21,0,63,63,42,21,21,42,21,63,42,63,21,42,63,63
  9.         db 21,0,0,21,0,42,21,42,0,21,42,42,63,0,0,63
  10.         db 0,42,63,42,0,63,42,42,21,0,21,21,0,63,21,42
  11.         db 21,21,42,63,63,0,21,63,0,63,63,42,21,63,42,63
  12.         db 21,21,0,21,21,42,21,63,0,21,63,42,63,21,0,63
  13.         db 21,42,63,63,0,63,63,42,21,21,21,21,21,63,21,63
  14.         db 21,21,63,63,63,21,21,63,21,63,63,63,21,63,63,63
  15.  
  16. ; make endpage screen
  17.  
  18. endpage:
  19.         push    offset gamecolr
  20.         call    fadeoffpalette
  21.  
  22.         call    mode03
  23.         call    wipeoffpalette
  24.  
  25.         mov     edx,offset endtext
  26.         call    _putdosmsg
  27.  
  28.         push    offset defpal
  29.         call    fadeonpalette
  30.  
  31.         jmp _exit    ; protected mode exit
  32.  
  33. _putdosmsg:
  34.         push ax
  35.         push edx
  36.         add edx,_code32a
  37.         mov al,dl
  38.         and ax,0fh
  39.         shr edx,4
  40.         mov v86r_ds,dx
  41.         mov v86r_dx,ax
  42.         mov v86r_ah,9
  43.         mov al,21h
  44.         int 33h
  45.         pop edx
  46.         pop ax
  47.         ret
  48.  
  49. hextbl          db      '0123456789ABCDEF'
  50.  
  51. ;∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞
  52. ; Put 8 digit hex number to screen buffer
  53. ; In:
  54. ;   EAX - number to put
  55. ;   EDI -> screen buffer location to put at
  56. ;∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞
  57. _puthexnum:
  58.         push eax ebx ecx edx edi
  59.         mov ebx,offset hextbl
  60.         mov edx,eax
  61.         mov ecx,8
  62.         mov ah,0fh
  63. puthexnuml0:
  64.         rol edx,4
  65.         mov al,dl
  66.         and al,0fh
  67.         xlat
  68.         stosw
  69.         loop puthexnuml0
  70.         pop edi edx ecx ebx eax
  71.         ret
  72.  
  73. wipe_v_memory:
  74.         @rlp edi,0a0000h
  75.         mov ecx,320*200*4/4/4
  76.         xor eax,eax
  77.  
  78.         rep stosd
  79.  
  80.         ret
  81.  
  82. endtext db "Send me a postcard!",13,10
  83.         db 13,10
  84.         db "John McCarthy tries to be a regular on Digital Pixel: (416) 298-1487",13,10
  85.         db "                           and on the Toronto VR SIG: (416) 631-6625",13,10
  86.         db 13,10
  87.         db "Or write to this address:",13,10
  88.         db 13,10
  89.         db "    John McCarthy",13,10
  90.         db "    1316 Redwood Lane",13,10
  91.         db "    Pickering, Ontario.",13,10
  92.         db "    Canada, Earth, Milky Way.  (for those out-of-towners)",13,10
  93.         db "    L1X 1C5",13,10
  94.         db "$"
  95.  
  96. ; screen text for font routines
  97.  
  98. runscreen:
  99.            border   0,0,xactual-1,yactual-1,16*3
  100.            steelbox 3,3,xactual-1-3,yactual-1-3,16*3,28
  101.            hole     xmin+xcenter-2,ymin+ycenter-2,xmax+xcenter+1,ymax+ycenter+1,16*3
  102.            fillarea xmin+xcenter,ymin+ycenter,xmax+xcenter-1,ymax+ycenter-1,0
  103.            textend
  104.  
  105. runtext:
  106.            newtext 35,13,14
  107.            db "3D Vectors in 320x400 Mode-X"
  108.  
  109.            lowercase
  110.  
  111.            newtext 15,yactual-32,14
  112.            db "Vector Routines by John McCarthy"
  113.  
  114.            newtext 11,yactual-22,9
  115.            db "X-Mode Routines by Matt Pritchard"
  116.  
  117.            newtext 23,yactual-12,12
  118.            db "Protected Mode Header by TRAN"
  119.  
  120.            textend
  121.  
  122.